Hệ thống quản lý cho thuê ô tô trong c#

51.892 lượt xem;
1 Imports System.Data.SqlClient
2 Public Class frmSplash
3
4     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
5         Try
6             If txtActivationID.Text = TextBox1.Text Then
7                 ProgressBar1.Visible = True
8                 ProgressBar1.Value = ProgressBar1.Value + 2
9                 If (ProgressBar1.Value = 10) Then
10                     Label3.Text = "Reading modules.."
11                 ElseIf (ProgressBar1.Value = 20) Then
12                     Label3.Text = "Turning on modules."
13                 ElseIf (ProgressBar1.Value = 40) Then
14                     Label3.Text = "Starting modules.."
15                 ElseIf (ProgressBar1.Value = 60) Then
16                     Label3.Text = "Loading modules.."
17                 ElseIf (ProgressBar1.Value = 80) Then
18                     Label3.Text = "Done Loading modules.."
19                 ElseIf (ProgressBar1.Value = 100) Then
20                     frmLogin.Show()
21                     Timer1.Enabled = False
22                     Me.Hide()
23                 End If
24             End If
25             If txtActivationID.Text <> TextBox1.Text Then
26                 ProgressBar1.Visible = True
27                 ProgressBar1.Value = ProgressBar1.Value + 2
28                 If (ProgressBar1.Value = 10) Then
29                     Label3.Text = "Reading modules.."
30                 ElseIf (ProgressBar1.Value = 20) Then
31                     Label3.Text = "Turning on modules."
32                 ElseIf (ProgressBar1.Value = 40) Then
33                     Label3.Text = "Starting modules.."
34                 ElseIf (ProgressBar1.Value = 60) Then
35                     Label3.Text = "Loading modules.."
36                 ElseIf (ProgressBar1.Value = 80) Then
37                     Label3.Text = "Done Loading modules.."
38                 ElseIf (ProgressBar1.Value = 100) Then
39                     frmActivation.Show()
40                     Timer1.Enabled = False
41                     Me.Hide()
42                 End If
43             End If
44         Catch ex As Exception
45             MsgBox(ex.Message, MsgBoxStyle.Critical, "Error!")
46             End
47         End Try
48     End Sub
49
50     Private Sub frmSplash_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
51         ProgressBar1.Width = Me.Width
52         Try
53             Dim i As System.Management.ManagementObject
54             Dim searchInfo_Processor As New System.Management.ManagementObjectSearcher("Select * from Win32_Processor")
55             For Each i In searchInfo_Processor.Get()
56                 txtHardwareID.Text = i("ProcessorID").ToString
57             Next
58             Dim searchInfo_Board As New System.Management.ManagementObjectSearcher("Select * from Win32_BaseBoard")
59             For Each i In searchInfo_Board.Get()
60                 txtSerialNo.Text = i("SerialNumber").ToString
61             Next
62             Dim st As String = (txtHardwareID.Text) + (txtSerialNo.Text)
63             TextBox1.Text = Encryption.MakePassword(st, 659)
64             con = New SqlConnection(cs)
65             con.Open()
66             Dim ct As String = "select RTRIM(ActivationID) from Activation where HardwareID=@d1 and SerialNo=@d2"
67             cmd = New SqlCommand(ct)
68             cmd.Connection = con
69             cmd.Parameters.AddWithValue("@d1", txtHardwareID.Text)
70             cmd.Parameters.AddWithValue("@d2", txtSerialNo.Text)
71             rdr = cmd.ExecuteReader()
72             If rdr.Read() Then
73                 txtActivationID.Text = Decrypt(rdr.GetValue(0))
74             End If
75         Catch ex As Exception
76             MsgBox(ex.Message, MsgBoxStyle.Critical, "Error!")
77             End
78         End Try
79     End Sub
80 End Class


Web, Tìm kết quả nhanh

Kích thước hoặc độ phức tạp của bản gửi này, tác giả đã gửi nó dưới dạng tệp .zip để rút ngắn thời gian tải xuống của bạn. Sau khi tải xuống, bạn sẽ cần một chương trình như Winzip để giải nén nó.

Tất cả các tệp đều được codefly.vn quét mỗi ngày một lần để tìm vi-rút, nhưng vi-rút mới xuất hiện hàng ngày nên không có chương trình phòng ngừa nào có thể bắt được 100% chúng.

ĐỂ AN TOÀN CỦA CHÍNH BẠN, VUI LÒNG:

1. Quét lại các tệp đã tải xuống bằng trình kiểm tra vi-rút cá nhân của bạn trước khi sử dụng.

2. KHÔNG BAO GIỜ, chạy các tệp đã biên dịch (.exe's, .ocx's, .dll's, v.v.)--chỉ chạy code mà bạn đã xem ít nhất 1 lần.

Official Website:

https://www.techprofree.com/.....c-with-source-code/

Gõ tìm kiếm nhanh...



Dự án liên quan!

Cách tạo đồng hồ bấm giờ trong C#

66 lượt xem

Hệ thống quản lý hàng tồn kho sử dụng cơ sở dữ liệu VB.NET và MySQL với mã nguồn

67 lượt xem

Đếm nguyên âm và phụ âm

110 lượt xem

Phần mềm quản lý nhân viên hiện đại sử dụng C#.net và Bunifu Framework với Full Source Code (2020)

170 lượt xem

Hệ thống quản lý đại học bằng C# với mã nguồn đầy đủ

134 lượt xem

Hệ thống quản lý bệnh viện bằng C# với mã nguồn đầy đủ

152 lượt xem